home *** CD-ROM | disk | FTP | other *** search
- object dlgFiles: TdlgFiles
- Left = 136
- Top = 6
- BorderStyle = bsDialog
- Caption = 'Select Files To Install'
- ClientHeight = 433
- ClientWidth = 401
- Font.Color = clWindowText
- Font.Height = -13
- Font.Name = 'System'
- Font.Style = []
- PixelsPerInch = 96
- Position = poScreenCenter
- OnClose = FormClose
- OnShow = FormShow
- TextHeight = 16
- object Panel2: TPanel
- Left = 0
- Top = 0
- Width = 161
- Height = 384
- Align = alLeft
- TabOrder = 1
- object DriveComboBox1: TDriveComboBox
- Left = 8
- Top = 8
- Width = 145
- Height = 22
- DirList = DirectoryListBox1
- TabOrder = 0
- end
- object DirectoryListBox1: TDirectoryListBox
- Left = 9
- Top = 33
- Width = 144
- Height = 129
- FileList = SrcList
- ItemHeight = 16
- TabOrder = 1
- end
- object edFileName: TEdit
- Left = 8
- Top = 168
- Width = 145
- Height = 24
- TabOrder = 2
- Text = '*.*'
- OnChange = edFileNameChange
- end
- object SrcList: TFileListBox
- Left = 8
- Top = 192
- Width = 145
- Height = 185
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- ItemHeight = 13
- MultiSelect = True
- ParentFont = False
- TabOrder = 3
- end
- end
- object Panel4: TPanel
- Left = 0
- Top = 384
- Width = 401
- Height = 49
- Align = alBottom
- TabOrder = 3
- object OKBtn: TBitBtn
- Left = 120
- Top = 14
- Width = 77
- Height = 27
- Caption = 'Ok'
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- ParentFont = False
- TabOrder = 0
- Kind = bkOK
- Margin = 2
- Spacing = -1
- IsControl = True
- end
- object CancelBtn: TBitBtn
- Left = 204
- Top = 14
- Width = 77
- Height = 27
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- ParentFont = False
- TabOrder = 1
- Kind = bkCancel
- Margin = 2
- Spacing = -1
- IsControl = True
- end
- end
- object Panel1: TPanel
- Left = 160
- Top = 0
- Width = 241
- Height = 89
- TabOrder = 0
- object Label1: TLabel
- Left = 56
- Top = 8
- Width = 29
- Height = 16
- Caption = 'Disk'
- end
- object Label2: TLabel
- Left = 128
- Top = 8
- Width = 9
- Height = 16
- Caption = '/'
- end
- object edCurrentDisk: TEdit
- Left = 96
- Top = 8
- Width = 25
- Height = 24
- TabStop = False
- ReadOnly = True
- TabOrder = 0
- Text = '0'
- end
- object btnNext: TBitBtn
- Left = 128
- Top = 48
- Width = 81
- Height = 33
- Caption = 'Next'
- TabOrder = 1
- OnClick = btnNextClick
- Glyph.Data = {
- 78010000424D7801000000000000760000002800000020000000100000000100
- 04000000000000000000120B0000120B00000000000000000000000000000000
- 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
- 3333333333333333333333333333333333333333333333333333333333333333
- 3333333333333333333333333333333333333333333FF3333333333333003333
- 3333333333773FF3333333333309003333333333337F773FF333333333099900
- 33333FFFFF7F33773FF30000000999990033777777733333773F099999999999
- 99007FFFFFFF33333F7700000009999900337777777F333F7733333333099900
- 33333333337F3F77333333333309003333333333337F77333333333333003333
- 3333333333773333333333333333333333333333333333333333333333333333
- 33333333333333333333333333333333333333333333333333330000}
- NumGlyphs = 2
- end
- object btnBack: TBitBtn
- Left = 32
- Top = 48
- Width = 81
- Height = 33
- Caption = 'Back'
- TabOrder = 2
- OnClick = btnBackClick
- Glyph.Data = {
- 78010000424D7801000000000000760000002800000020000000100000000100
- 04000000000000000000120B0000120B00000000000000000000000000000000
- 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
- 3333333333333333333333333333333333333333333333333333333333333333
- 3333333333333FF3333333333333003333333333333F77F33333333333009033
- 333333333F7737F333333333009990333333333F773337FFFFFF330099999000
- 00003F773333377777770099999999999990773FF33333FFFFF7330099999000
- 000033773FF33777777733330099903333333333773FF7F33333333333009033
- 33333333337737F3333333333333003333333333333377333333333333333333
- 3333333333333333333333333333333333333333333333333333333333333333
- 33333333333333333333333333333333333333333333333333330000}
- NumGlyphs = 2
- end
- object edTotalDisks: TEdit
- Left = 144
- Top = 8
- Width = 25
- Height = 24
- TabStop = False
- Enabled = False
- ReadOnly = True
- TabOrder = 3
- Text = '0'
- end
- end
- object Panel6: TPanel
- Left = 360
- Top = 88
- Width = 41
- Height = 296
- TabOrder = 5
- object btnDeleteFiles: TSpeedButton
- Left = 8
- Top = 8
- Width = 25
- Height = 25
- Glyph.Data = {
- 76010000424D7601000000000000760000002800000020000000100000000100
- 04000000000000010000130B0000130B00000000000000000000000000000000
- 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
- 3333333333333333FF3333333333333003333333333333377F33333333333307
- 733333FFF333337773333C003333307733333777FF333777FFFFC0CC03330770
- 000077777FF377777777C033C03077FFFFF077FF77F777FFFFF7CC00000F7777
- 777077777777777777773CCCCC00000000003777777777777777333330030FFF
- FFF03333F77F7F3FF3F7333C0C030F00F0F03337777F7F77373733C03C030FFF
- FFF03377F77F7F3F333733C03C030F0FFFF03377F7737F733FF733C000330FFF
- 0000337777F37F3F7777333CCC330F0F0FF0333777337F737F37333333330FFF
- 0F03333333337FFF7F7333333333000000333333333377777733}
- NumGlyphs = 2
- OnClick = btnDeleteFilesClick
- end
- end
- object Panel3: TPanel
- Left = 161
- Top = 88
- Width = 40
- Height = 296
- TabOrder = 2
- object IncludeBtn: TSpeedButton
- Left = 9
- Top = 160
- Width = 24
- Height = 24
- Caption = '>'
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- ParentFont = False
- OnClick = IncludeBtnClick
- IsControl = True
- end
- object IncAllBtn: TSpeedButton
- Left = 9
- Top = 193
- Width = 24
- Height = 24
- Caption = '>>'
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- ParentFont = False
- OnClick = IncAllBtnClick
- IsControl = True
- end
- end
- object Panel5: TPanel
- Left = 200
- Top = 88
- Width = 161
- Height = 297
- TabOrder = 4
- object DstLabel: TLabel
- Left = 8
- Top = 8
- Width = 137
- Height = 16
- AutoSize = False
- Caption = 'Files For This Disk'
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- ParentFont = False
- IsControl = True
- end
- object DstList: TListBox
- Left = 9
- Top = 24
- Width = 136
- Height = 265
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- ItemHeight = 13
- MultiSelect = True
- ParentFont = False
- Sorted = True
- TabOrder = 0
- IsControl = True
- end
- end
- end
-